1 REM +                          +
2 REM   (C)'89 RALF NIKOLAI
5 REM          KARLSRUHE
6 REM +                          +
7 REM
10 IP=50768:GT=51006
20 IFI=0THENI=1:LOAD"KOMPLAN.MASCH",8,1
30 ML%=10:KS%=1:DIMF$(6,9),R$(6,9),KK$(20),KL$(20)
40 FORI=1TO6:READWT$(I):NEXTI:GOSUB6000:GOTO500
50 PRINT#4,CHR$(15);A$;CHR$(8):SYS51431:A%=PEEK(2):RETURN
100 PRINT"[147]";:A$=STR$(ST%):RN=31:GOSUB800
110 ST%=0:PRINT"MAXIMALE ZAHL STUNDEN PRO TAG ";:SYSIP,1:INPUTST%:IFST%=0THEN500
120 PRINT:FORI=1TOST%:PRINT"BEGINN DER";I;"[157]. STUNDE ";
130 A$=ZB$(I):RN=2:GOSUB800:ZB$(I)="":SYSIP,5:INPUTZB$(I):PRINTTAB(14)
140 A$=ZE$(I):RN=9:GOSUB800:ZE$(I)="":PRINT"ENDE   ";:SYSIP,5:INPUTZE$(I):NEXTI
150 PRINT"[147]ABSPEICHERN DER ZEITEN:[154]":PRINT
160 PRINT"ZEITEN ABSPEICHEN (J/N) ? ";
170 SYSGT,0,A$:IFA$="N"THEN500
180 GOTO6200
200 PRINT"[147]DIE LAENGE DER FAECHER- UND RAUMBE-":PRINT
210 PRINT"ZEICHNUNGEN IST MAXIMAL 10 BUCHSTABEN !"
220 PRINT"MIT _[146] KOENNEN SIE VERBESSERN."
230 POKE211,0:POKE214,24:SYS58732:PRINT"A=ABBRUCH     W=WEITER";
240 PRINT"":GOSUB900:GETA$:IFA$="A"THEN500
250 IFA$<>"W"THEN240
260 POKE198,0:FORI=1TO6:PRINT"[147]";WT$(I):PRINT"[154]"
270 FORJ=1TOST%:PRINTJ;"[157]. STUNDE (";ZB$(J);"-";ZE$(J);") ";
280 F$(I,J)="":SYSIP,10:INPUTF$(I,J):IFF$(I,J)<>"_"THENGOSUB7000:GOTO300
290 IFJ>1THENJ=J-1:PRINT:PRINT"[145][145][145]";
300 PRINTTAB(17);:R$(I,J)="":GOSUB7100:PRINT"RAUM NR. ";:SYSIP,10:INPUTR$(I,J)
310 IFR$(I,J)="_"THENJ=J-1:PRINT:PRINT"[145][145][145]";:NEXTJ
320 NEXTJ,I
330 PRINT"[147]WIE OFT NACHMITTAGSUNTERRICHT ";:SYSIP,1:INPUTNO%:IFNO%=0THEN380
340 FORI=1TONO%:PRINT:PRINTI;"[157]. NACHMITTAGSUNTERRICHT ";:SYSIP,30:INPUTNM$(I)
350 PRINT"  TAG    ";:SYSIP,10:INPUTNT$(I)
360 PRINT"  BEGINN ";:SYSIP,5:INPUTNB$(I)
370 PRINT"  ENDE   ";:SYSIP,5:INPUTNE$(I):NEXTI
380 KL$="":HJ$="":SJ$="":VN$="":NN$=""
400 PRINT"[147]KLASSE ";:A$=KL$:RN=2:ML%=20:GOSUB800:KL$="":SYSIP,20:INPUTKL$:PRINT
410 PRINT"HALBJAHR (1/2) ";:A$=HJ$:RN=2:ML%=1:GOSUB800:HJ$="":SYSIP,1:INPUTHJ$:PRINT
420 PRINT"SCHULJAHR ";:A$=SJ$:RN=2:ML%=9:GOSUB800:SJ$="":SYSIP,9:INPUTSJ$:PRINT
430 PRINT"VORNAME ";:A$=VN$:RN=2:ML%=28:GOSUB800:VN$="":SYSIP,28:INPUTVN$:PRINT
440 PRINT"NACHNAME ";:A$=NN$:RN=2:ML%=27:GOSUB800:NN$="":SYSIP,27:INPUTNN$
500 ML%=10:SYS52332:PRINT"[147]":POKE53280,0:POKE53281,0
510 PRINT"WAEHLEN SIE:":PRINT
520 PRINT" 1 [154]> EINGABE":PRINT
530 PRINT" 2 [154]> DISKETTENVERWALTUNG":PRINT
540 PRINT" 3 [154]> KONTROLLE":PRINT
550 PRINT" 4 [154]> VERBESSERN":PRINT
560 PRINT" 5 [154]> AUSDRUCKEN":PRINT
570 PRINT" 6 [154]> KUERZEL":PRINT
580 PRINT" 7 [154]> ENDE":PRINT
590 PRINTTAB(10);"IHRE WAHL (1-7) ? ";
600 SYS51739:SYSGT,7,A$:SYS51913
610 PRINT"[154]":ONVAL(A$)GOTO200,3500,1500,2000,4000,5000
620 PRINT"FALLS IRRTUM RESTORE [154]DRUECKEN"
630 END
800 YY=PEEK(214):XX=PEEK(211):POKE211,XX+RN:POKE214,YY:SYS58732:IFYY>23THENYY=23
810 PRINTLEFT$(A$,ML%):POKE211,XX:POKE214,YY:SYS58732:RETURN
900 PRINT:PRINTTAB(10)"[154]TASTE[146]";:POKE198,0:WAIT198,1:PRINT:RETURN
1000 PRINT"[147]STUNDENPLAN LADEN:[154]":PRINT
1010 CLOSE15:CLOSE8:OPEN15,8,15:OPEN8,8,8,"0:"+A$+".ST,P,R"
1020 PRINT:PRINT"[154]FLOPPY UEBERGIBT ";A$;"[154] AN C 64":PRINT
1030 INPUT#15,A$,B$,C$,D$:IF(VAL(A$)<>0)THENCLOSE8:CLOSE15:SYS50622:GOTO3500
1040 INPUT#8,ST%:FORI=1TOST%:INPUT#8,ZB$(I):IFZB$(I)="[166]"THENZB$(I)=""
1050 NEXTI:FORI=1TOST%:INPUT#8,ZE$(I):IFZE$(I)="[166]"THENZE$(I)=""
1060 NEXTI:FORI=1TO6:FORJ=1TOST%
1070 INPUT#8,F$(I,J),R$(I,J):IFF$(I,J)="[166]"THENF$(I,J)=""
1080 IFR$(I,J)="[166]"THENR$(I,J)=""
1090 NEXTJ,I:INPUT#8,NO%:IFNO%=0THEN1160
1100 FORI=1TONO%:INPUT#8,NM$(I),NT$(I),NB$(I),NE$(I)
1110 IFNM$(I)="[166]"THENNM$(I)=""
1120 IFNT$(I)="[166]"THENNT$(I)=""
1130 IFNB$(I)="[166]"THENNB$(I)=""
1140 IFNE$(I)="[166]"THENNE$(I)=""
1150 NEXTI
1160 INPUT#8,KL$,HJ$,SJ$,VN$,NN$:CLOSE8
1170 IFKL$="[166]"THENKL$=""
1180 IFHJ$="[166]"THENHJ$=""
1190 IFSJ$="[166]"THENSJ$=""
1200 IFVN$="[166]"THENVN$=""
1210 IFNN$="[166]"THENNN$=""
1220 INPUT#15,A$,B$,C$,D$:CLOSE15:IFVAL(A$)=0THEN500
1230 SYS50622:GOTO500
1500 PRINT"[147]VORNAME      : ";VN$
1510 PRINT:PRINT"NACHNAME     : ";NN$
1520 PRINT:PRINT"KLASSE/HALBJ.: ";KL$;:IFHJ$<>""THENPRINT"   ";HJ$;". HALBJAHR"
1530 IFHJ$=""THENPRINT
1540 PRINT:PRINT"SCHULJAHR    : ";SJ$
1550 PRINT:GOSUB900:PRINT"[147]ZEITEN:[154]":PRINT
1560 FORI=1TOST%:PRINTI;"[157]. STUNDE VON ";:IFLEN(ZB$(I))<6THENPRINTSPC(5-LEN(ZB$(I)))
1570 PRINTZB$(I);" UHR BIS ";:IFLEN(ZE$(I))<6THENPRINTSPC(5-LEN(ZE$(I)));
1580 PRINTZE$(I);" UHR":NEXTI:GOSUB900
1590 FORI=1TO6:PRINT"[147]";WT$(I):PRINT"[154]":FORJ=1TOST%
1600 PRINTJ;"[157]. STUNDE: ";F$(I,J);SPC(11-LEN(F$(I,J)));"RAUM: ";R$(I,J):PRINT
1610 NEXTJ:GOSUB900:NEXTI
1620 PRINT"[147]NACHMITTAGSUNTERRICHT:[154]":PRINT
1630 IFNO%=0THENPRINT" K E I N E R":GOTO1650
1640 FORI=1TONO%:PRINTNT$(I)"S (";NB$(I);"-";NE$(I);"): ";NM$(I):PRINT:NEXTI
1650 GOSUB900:GOTO500
2000 PRINT"[147]DAS KOENNEN SIE AENDERN:":PRINT:PRINT
2010 PRINT" 1 [154]> EINZELNE STUNDEN":PRINT
2020 PRINT" 2 [154]> NACHMITTAGSUNTERRICHT":PRINT
2030 PRINT" 3 [154]> WEITERE DATEN (NAME,KLASSE,ETC.)":PRINT
2040 PRINT" 4 [154]> STUNDENBEGINN/-ENDE":PRINT
2050 PRINT" 5 [154]> GAR NICHTS":PRINT:PRINT
2060 PRINTTAB(10);"IHRE WAHL (1-5) ? ";
2070 SYSGT,5,A$:PRINT"[154]":ONVAL(A$)GOTO2200,2500,400,100,500
2200 I=1
2210 PRINT"[147]";WT$(I):PRINT"[154]":SYS52122:FORJ=1TOST%
2220 PRINTJ;"[157]. STUNDE (";ZB$(J);"-";ZE$(J);") [152]";
2230 POKE211,26:SYS58732:PRINTF$(I,J);:IFF$(I,J)=""THENPRINT"[144]***";
2240 PRINT:PRINTTAB(18);"[154]RAUM NR.  [152]";R$(I,J);:IFR$(I,J)=""THENPRINT"[144]***";
2250 PRINT"[154]":NEXTJ:PRINT"";
2260 J=1:PL=25:A%=PEEK(55297+PL+40*(J+2)):SYS51237,8,0,PL,J+2
2270 PL=27:IF(J/2)=INT(J/2)THENPL=25
2280 GETA$:IFA$=""THEN2280
2290 IFA$="_"THENSYS52259:GOTO500
2300 IFA$="+"THENI=I+1:IFI=7THENI=1
2310 IFA$="-"THENI=I-1:IFI=0THENI=6
2320 IF(A$="+")OR(A$="-")THENSYS51237,A%,2:GOTO2210
2330 IFA$="[145]"THENJ=J-1:IFJ=0THENJ=ST%*2
2340 IFA$=""THENJ=J+1:IF(J>ST%*2)THENJ=1
2350 IF(A$="[145]")OR(A$="")THENRN=A%:A%=PEEK(55297+PL+40*(J+2)):SYS51237,RN,1,PL,J+2
2360 IFA$<>CHR$(13)THEN2270
2370 SYS52316:XX=26:IFPL=27THENXX=24
2380 A$="":POKE211,XX:POKE214,J+2:SYS58732:SYS51333:SYSIP,10:INPUTA$:SYS52326
2390 PRINT"[144]":POKE51062,6:POKE6,34:SYSGT,0,B$:POKE51062,203:PRINT"";:IFA$=" "THENA$=""
2400 A%=15:IFA$=""THENA%=0:POKE211,XX+2:POKE214,J+2:SYS58732:PRINT"[144]***"
2410 IF(J/2)=INT(J/2)THENR$(I,INT(J/2))=A$:GOTO2270
2420 F$(I,INT(J/2)+1)=A$:GOTO2270
2500 PRINT"[147]NACHMITTAGSUNTERRICHT:[154]":PRINT:PRINT"WIE OFT WOECHENTLICH ?";NO%;"[157][157][157][157]";
2510 SYSIP,1:INPUTNO%:IFNO%=0THEN500
2520 PRINT:ML%=17:FORI=1TONO%:PRINT" FACH ";
2530 A$=NM$(I):RN=2:GOSUB800:SYSIP,30:INPUTNM$(I):PRINT" TAG  ";
2540 A$=NT$(I):RN=2:GOSUB800:SYSIP,10:INPUTNT$(I)
2550 PRINT" VON  ";:A$=NB$(I):RN=2:GOSUB800:SYSIP,5:INPUTNB$(I):PRINT" BIS  ";
2560 A$=NE$(I):RN=2:GOSUB800:SYSIP,5:INPUTNE$(I):PRINT:NEXTI
2570 ML%=10:GOTO500
3000 PRINT"[147]STUNDENPLAN ABSPEICHERN:[154]":PRINT:IFST%=0THEN500
3010 A$="":PRINT"NAME (1-13 BUCHSTABEN) ";:SYSIP,13:INPUTA$:IFA$=""THEN500
3020 CLOSE15:CLOSE8:OPEN15,8,15:OPEN8,8,8,"0:"+A$+".ST,P,W"
3030 PRINT:PRINT"C 64 UEBERGIBT ";A$;"[154] AN FLOPPY":PRINT
3040 L$=CHR$(13):PRINT#8,ST%:FORI=1TOST%:IFZB$(I)=""THENZB$(I)="[166]"
3050 PRINT#8,ZB$(I):IFZB$(I)="[166]"THENZB$(I)=""
3060 NEXTI:FORI=1TOST%:IFZE$(I)=""THENZE$(I)="[166]"
3070 PRINT#8,ZE$(I):IFZE$(I)="[166]"THENZE$(I)=""
3080 NEXTI:FORI=1TO6:FORJ=1TOST%:IFF$(I,J)=""THENF$(I,J)="[166]"
3090 IFR$(I,J)=""THENR$(I,J)="[166]"
3100 PRINT#8,F$(I,J)L$R$(I,J):IFF$(I,J)="[166]"THENF$(I,J)=""
3110 IFR$(I,J)="[166]"THENR$(I,J)=""
3120 NEXTJ,I:PRINT#8,NO%:IFNO%=0THEN3230
3130 FORI=1TONO%:IFNM$(I)=""THENNM$(I)="[166]"
3140 IFNT$(I)=""THENNT$(I)="[166]"
3150 IFNB$(I)=""THENNB$(I)="[166]"
3160 IFNE$(I)=""THENNE$(I)="[166]"
3170 PRINT#8,NM$(I)L$NT$(I)L$NB$(I)L$NE$(I)
3180 IFNM$(I)="[166]"THENNM$(I)=""
3190 IFNT$(I)="[166]"THENNT$(I)=""
3200 IFNB$(I)="[166]"THENNB$(I)=""
3210 IFNE$(I)="[166]"THENNE$(I)=""
3220 NEXTI
3230 IFKL$=""THENKL$="[166]"
3240 IFHJ$=""THENHJ$="[166]"
3250 IFSJ$=""THENSJ$="[166]"
3260 IFVN$=""THENVN$="[166]"
3270 IFNN$=""THENNN$="[166]"
3280 PRINT#8,KL$L$HJ$L$SJ$L$VN$L$NN$:CLOSE8
3290 IFKL$="[166]"THENKL$=""
3300 IFHJ$="[166]"THENHJ$=""
3310 IFSJ$="[166]"THENSJ$=""
3320 IFVN$="[166]"THENVN$=""
3330 IFNN$="[166]"THENNN$=""
3340 INPUT#15,A$,B$,C$,D$:CLOSE15:IFVAL(A$)=0THEN500
3350 SYS50622:GOTO500
3500 PRINT"[147]DISKETTENVERWALTUNG:":PRINT:PRINT
3510 PRINT" 1[154] > STUNDENPLAN LADEN":PRINT
3520 PRINT" 2[154] > STUNDENPLAN SPEICHERN":PRINT
3530 PRINT" 3[154] > STUNDENPLAENE AUFLISTEN":PRINT
3540 PRINT" 4[154] > DIRECTORY AUFLISTEN":PRINT
3550 PRINT" 5[154] > STUNDENPLAENE LOESCHEN":PRINT
3560 PRINT" 6[154] > PROGRAMME LOESCHEN":PRINT
3570 PRINT" 7[154] > ZURUECK INS HAUPTMENUE":PRINT:PRINT
3580 PRINTTAB(10);"IHRE WAHL (1-7) ? ";
3590 SYSGT,7,A$
3600 PRINT"[147]":IFA$="1"THENPRINT"STUNDENPLAN LADEN:[154]"
3610 I=1:IFA$="1"THENPOKE2,3:SYS49152:INPUT"[144]";A$:IFA$<>"ABBRUCH"THEN1000
3620 IFA$="2"THEN3000
3630 IFA$="3"THENPOKE2,1:GOTO3900
3640 IFA$="4"THENI=0:POKE2,0:GOTO3900
3650 IFA$="5"THENPOKE2,3:PRINT"STUNDENPLAENE LOESCHEN:[154]":SYS49152:GOTO3690
3660 IFA$="6"THENI=0:PRINT"PROGRAMME LOESCHEN:[154]":POKE2,2:SYS49152:GOTO3690
3670 IFA$="7"THEN500
3680 IFA$="ABBRUCH"THEN3500
3690 INPUT"[144]";A$:IFA$="ABBRUCH"THEN3500
3800 PRINT"[147]LOESCHEN VON ";:IFI=0THENPRINT"PROGRAMMEN:[154]"
3810 IFI=1THENPRINT"STUNDENPLAENEN:[154]":A$=A$+".ST"
3820 PRINT:PRINT"";A$;"[154] WIRD GELOESCHT"
3830 CLOSE15:OPEN15,8,15:PRINT#15,"S:";A$:PRINT:INPUT#15,A$,B$,C$,C$
3840 CLOSE15:IFRN=-1THENRETURN
3850 IFVAL(A$)=1THENPRINT"DATEI GELOESCHT":PRINT:GOSUB900:GOTO500
3860 IFVAL(A$)<20THEN500
3870 SYS50622:GOTO500
3900 IFI=1THENA$="STUNDENPLAENE AUF DISKETTE:[154]"
3910 IFI=0THENA$="DIRECTORY :[154]"
3920 PRINTA$:PRINT
3930 PRINT" (FEUER/SPACE = PAUSE"
3940 PRINT" JOYSTICK OBEN-UNTEN/ TASTE= HALT)":PRINT:GOSUB900
3950 SYS49152
3960 POKE211,11:POKE214,24:SYS58732:PRINT"_[146] ODER JOYSTICK LINKS[146]";
3970 GETA$:IFA$="_"THEN3500
3980 IFPEEK(56320)=123THEN3500
3990 GOTO3970
4000 PRINT"[147]AUSDRUCKEN:[154]":PRINT:PRINT"SIND SIE SICHER (J/N) ? ";
4010 GETA$:IFA$=""THEN4010
4020 IF(A$<>"J")AND(A$<>"[202]")THEN500
4030 PRINTA$:PRINT:PRINT"O.K.,IHR STUNDENPLAN WIRD AUSGEDRUCKT":IFST%=0THEN500
4040 POKE211,2:POKE214,8:SYS58732:PRINT"[154]SPACE = PAUSE"
4050 A$="":CLOSE4:OPEN4,4
4060 A$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
4070 A$=A$+"[192][192][192][192][192][192][192][192][192][192][174]":GOSUB50:ONA%GOTO500,4040
4080 A$="[221]"+VN$+" "+NN$:
4090 FORI=1TO(77-LEN(NN$)-LEN(VN$)-1):A$=A$+" ":NEXTI:A$=A$+"[221]":GOSUB50
4100 ONA%GOTO500,4040:L$="[221]                                       "
4110 L$=L$+"                                      [221]":A$=L$:GOSUB50
4120 ONA%GOTO500,4040:A$="[221]                         ":PRINT#4,CHR$(15);A$;
4130 A$="STUNDENPLAN":PRINT#4,CHR$(14);A$;CHR$(15);
4140 A$="                              [221]":GOSUB50:ONA%GOTO500,4040
4150 A$=L$:GOSUB50:ONA%GOTO500,4040
4160 A$="[221]KLASSE: "+KL$+"     "+HJ$+". HALBJAHR":J=LEN(A$)
4170 FORI=JTO(66-LEN(SJ$)):A$=A$+" ":NEXTI:A$=A$+"SCHULJAHR: "+SJ$+"[221]":GOSUB50
4180 ONA%GOTO500,4040
4190 A$="[171][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192]"
4200 A$=A$+"[192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][179]":GOSUB50:ONA%GOTO500,4040
4210 A$="[221]           [221]  MONTAG  [221] DIENSTAG [221] MITTWOCH [221]DONNERSTAG[221]  FREITAG [221]"
4220 A$=A$+"  SAMSTAG [221]":GOSUB50:ONA%GOTO500,4040
4230 LL$="[171][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192]"
4240 LL$=LL$+"[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][179]":A$=LL$:GOSUB50:ONA%GOTO500,4040
4250 FORI=1TOST%:A$="[221]"+STR$(I)+". STUNDE [221]":FORJ=1TO6
4260 II=LEN(F$(J,I)):IFII=0THENA$=A$+"          ":GOTO4290
4270 IFII<10THENFORJJ=1TOINT((10-II)/2+.99):A$=A$+" ":NEXTJJ
4280 A$=A$+F$(J,I):IFII<9THENFORI1=(JJ+II)TO10:A$=A$+" ":NEXTI1
4290 A$=A$+"[221]":NEXTJ:GOSUB50:IFA%<>0THEN4320
4300 A$="[221]           [221]          [221]          [221]          [221]          [221] "
4310 A$=A$+"         [221]          [221]":GOSUB50:IFA%=0THEN4330
4320 I=99:NEXT:ONA%GOTO500,4040
4330 I1=LEN(ZB$(I)):I2=LEN(ZE$(I)):A$="[221]"
4340 IFI1<5THENFORII=1TO(5-I1):A$=A$+" ":NEXTII
4350 A$=A$+ZB$(I)+"-"
4360 IFI2<5THENFORII=1TO(5-I1):A$=A$+" ":NEXTII
4370 A$=A$+ZE$(I)+"[221]"
4380 FORJ=1TO6
4390 II=LEN(R$(J,I)):IFII=0THENA$=A$+"          ":GOTO4420
4400 IFII<10THENFORJJ=1TO(INT((10-II)/2+.99)):A$=A$+" ":NEXTJJ
4410 A$=A$+R$(J,I):IFII<9THENFORI1=(JJ+II)TO10:A$=A$+" ":NEXTI1
4420 A$=A$+"[221]":NEXTJ:GOSUB50:IFA%<>0GOTO4440
4430 IFI<>ST%THENA$=LL$:GOSUB50:IFA%=0THENNEXT:GOTO4450
4440 I=99:NEXT:ONA%GOTO500,4040
4450 A$="[171]":IFNO%=0THENA$="[173]"
4460 A$=A$+"[192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192]"
4470 A$=A$+"[192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192]":LL$="[179]":IFNO%=0THENLL$="[189]"
4480 A$=A$+LL$:GOSUB50:ONA%GOTO500,4040:IFNO%=0THENGOTO4570
4490 A$="[221]NACHMITTAGSUNTERRICHT:                                            "
4500 A$=A$+"           [221]":GOSUB50:ONA%GOTO500,4040:A$=L$:GOSUB50:ONA%GOTO500,4040
4510 FORI=1TONO%:A$="[221] "+NT$(I)+"S: "+NM$(I)+" ("+NB$(I)+" UHR-"+NE$(I)+" UHR)"
4520 J=LEN(A$):FORII=JTO77:A$=A$+" ":NEXTII:A$=A$+"[221]":GOSUB50:IFA%<>0THEN4540
4530 A$=L$:GOSUB50IFA%=0THENNEXT
4540 I=99:NEXT:ONA%GOTO500,4040
4550 A$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
4560 A$=A$+"[192][192][192][192][192][192][192][192][192][189]":GOSUB50:ONA%GOTO500,4040
4570 A$="                                                       "
4580 A$=A$+"(C) 1989 BY RALF NIKOLAI":GOSUB50:GOTO500
5000 PRINT"[147]KUERZEL:[154]":PRINT:PRINT
5010 PRINT"ANSTATT DER VOLLSTAENDIGEN FAECHERBE-":PRINT
5020 PRINT"ZEICHNUNGEN KOENNEN AUCH KUERZEL EINGE-":PRINT
5030 PRINT"GEBEN WERDEN, DIE DER COMPUTER AUTO-":PRINT
5040 PRINT"MATISCH DURCH DIE AUSFUEHRLICHEN BE-":PRINT
5050 PRINT"ZEICHNUNGEN ERSETZT (EIN-/AUSSCHALTBAR)":PRINT:PRINT
5060 PRINT" 1 [154]> KUERZEL ANSEHEN":PRINT
5070 PRINT" 2 [154]> KUERZEL AENDERN":PRINT
5080 PRINT" 3 [154]> KUERZEL SPEICHERN":PRINT
5090 PRINT" 4 [154]> ZURUECK INS HAUPTMENUE":PRINT
5100 PRINT:PRINTTAB(10);"IHRE WAHL (1-4) ? ";
5110 SYSGT,4,A$:PRINT"[154]":ONVAL(A$)GOTO5200,5300,5600,500
5200 PRINT"[147]KUERZEL ";:IFKS%=0THENPRINT" AUSGESCHALTET:[154]":GOTO5220
5210 PRINT" EINGESCHALTET:[154]"
5220 IFK%=0THEN5000
5230 PRINT:FORI=1TOK%:PRINT" KUERZEL: ";KK$(I);TAB(17);"FACH: ";KL$(I):NEXTI
5240 GOSUB900:GOTO5000
5300 PRINT"[147]KUERZEL AENDERN:[154]"
5310 POKE211,0:POKE214,3:SYS58732:PRINT"KUERZELKENNUNG ";
5320 IFKS%=0THENPRINT"AUS[154]"
5330 IFKS%=1THENPRINT"EIN[154]"
5340 GETA$:IFA$=""THEN5340
5350 IFASC(A$)=13THEN5380
5360 IFKS%=1THENKS%=0:GOTO5310
5370 KS%=1:GOTO5310
5380 IFKS%=0THEN5000
5390 PRINT:PRINT"WEITER ? ";
5400 GETA$:IFA$=""THEN5400
5410 IF(A$="J")OR(A$="[202]")OR(ASC(A$)=13)THENPRINT"J":PRINT:GOTO5430
5420 GOTO5000
5430 A$=STR$(K%):RN=26:GOSUB800
5440 A$="":PRINT"WIE VIELE KUERZEL (1-20) ";:SYSIP,2:INPUTA$
5450 K%=VAL(A$):IF(K%<1)OR(K%>20)THENK%=20:PRINT"[145]";:GOTO5440
5460 PRINT:FORI=1TOK%
5470 IFLEN(KK$(I))=0THEN5490
5480 A$=KK$(I):RN=11:GOSUB800
5490 KK$(I)="":PRINT" KUERZEL [154]";:SYSIP,2:INPUTKK$(I):IFI=1THEN5530
5500 II=0:FORRN=1TO(I-1):IFKK$(I)=KK$(RN)THENII=1:RN=I-1
5510 NEXTRN:IFII=0THEN5530
5520 PRINT"SCHON BELEGT![145]":GOTO5550
5530 IFLEN(KK$(I))>0THEN5560
5540 PRINT"ZU KURZ![145]"
5550 KK$(I)=LEFT$(KK$(I),2):PRINT"[145]";:GOTO5470
5560 A$=KL$(I):RN=14:GOSUB800:KL$(I)="":PRINT"       FACH [154]";:SYSIP,10:INPUTKL$(I)
5570 IFLEN(KL$(I))>0THEN5590
5580 KL$(I)=LEFT$(KL$(I),10):PRINT"ZU KURZ![145]":PRINT"[145]";:GOTO5560
5590 NEXTI:GOTO5000
5600 PRINT"[147]KUERZEL ABSPEICHERN:[154]":PRINT
5610 PRINT"SIND SIE SICHER (J/N) ? ";
5620 GETA$:IFA$=""THEN5620
5630 IF(A$<>"J")AND(A$<>"[202]")AND(ASC(A$)<>13)THEN5000
5640 PRINT"J":PRINT:PRINT"DISKETTE MIT KOMPLAN EINLEGEN":PRINT
5650 GOSUB900:RN=-1:A$="KOMPLAN.KUERZEL":GOSUB3830
5660 CLOSE15:CLOSE8:OPEN15,8,15:OPEN8,8,8,"0:KOMPLAN.KUERZEL,P,W"
5670 PRINT#8,K%:FORI=1TOK%:PRINT#8,KK$(I):PRINT#8,KL$(I):NEXTI:CLOSE8
5680 INPUT#15,A$,B$,C$,C$:CLOSE15:IFVAL(A$)=0THEN5000
5690 PRINT:SYS50622:GOTO5000
6000 CLOSE15:CLOSE8:OPEN15,8,15:OPEN8,8,8,"KOMPLAN.KUERZEL,P,R"
6010 J=0:INPUT#8,K%:IFK%<1THENJ=1:CLOSE8:GOTO6100
6020 FORI=1TOK%:INPUT#8,KK$(I):INPUT#8,KL$(I):NEXTI:CLOSE8
6100 OPEN8,8,8,"0:KOMPLAN.ZEITEN,P,R":INPUT#8,ST%
6110 FORI=1TOST%:INPUT#8,ZB$(I):INPUT#8,ZE$(I):IFZB$(I)="[166]"THENZB$(I)=""
6120 IFZE$(I)="[166]"THENZE$(I)=""
6130 NEXTI:CLOSE8:INPUT#15,I,B$,C$,C$:CLOSE15:I=I+J:IF(I=0)AND(K%>0)THENRETURN
6140 PRINT"[147]COMPLAN DISKETTE EINLEGEN[154]"
6150 PRINT:PRINTTAB(10);"TASTE[146]":PRINT:PRINT"FALLS FEHLER UNBEHEBBAR Q[154]"
6160 GETA$:IFA$=""THEN6160
6170 IFA$<>"Q"THEN6000
6180 IFK%<1THENK%=1:KK$(1)="RN":KL$(1)="R.NIKOLAI"
6190 RETURN
6200 PRINT:PRINT"KOMPLAN DISKETTE EINLEGEN[154]":GOSUB900:RN=-1:A$="KOMPLAN.ZEITEN":GOSUB3830
6210 CLOSE15:CLOSE8:OPEN15,8,15:OPEN8,8,8,"0:KOMPLAN.ZEITEN,P,W":PRINT#8,ST%
6220 FORI=1TOST%:PRINT#8,ZB$(I):IFZB$(I)=""THENPRINT#8,"[166]"
6230 PRINT#8,ZE$(I):IFZE$(I)=""THENPRINT#8,"[166]"
6240 NEXTI:CLOSE8:INPUT#15,A$,B$,C$,C$:IFVAL(A$)=0THEN500
6250 PRINT:SYS50622:GOTO500
7000 IF(KS%=0)OR(K%=0)THENRETURN
7010 FORRN=1TOK%:IF(F$(I,J))<>(KK$(RN))THEN7040
7020 F$(I,J)=KL$(RN):POKE211,17+LEN(ZB$(J))+LEN(ZE$(J)):POKE214,PEEK(214)-1
7030 SYS58732:PRINTF$(I,J):RN=K%
7040 NEXTRN:RETURN
7100 IF((I=1)AND(J=1))OR(KS%=0)THENRETURN
7110 IFI=1THEN7170
7120 FORRN=1TOI-1:FORNR=1TOST%:IFF$(I,J)<>F$(RN,NR)THEN7160
7130 YY=PEEK(214):XX=PEEK(211):POKE211,XX+11:POKE214,YY:SYS58732
7140 PRINTR$(RN,NR):POKE211,XX:POKE214,YY:SYS58732:RN=I:NR=ST%
7150 NEXTNR,RN:RETURN
7160 NEXTNR,RN
7170 FORNR=1TOST%:IFF$(I,J)<>F$(I,NR)THEN7200
7180 YY=PEEK(214):XX=PEEK(211):POKE211,XX+11:POKE214,YY:SYS58732
7190 PRINTR$(I,NR):POKE211,XX:POKE214,YY:SYS58732:NR=ST%
7200 NEXTNR:RETURN
10000 DATAMONTAG,DIENSTAG,MITTWOCH,DONNERSTAG,FREITAG,SAMSTAG